home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / general / set rain.amos / set rain.amosSourceCode
Encoding:
AMOS Source Code  |  1992-06-05  |  1.5 KB  |  118 lines
  1. Screen Open 0,640,256,2,Hires : Palette $0,$FFF : Cls 0
  2. Hide : Curs Off 
  3. _RAINBOW
  4. '
  5. '
  6. Procedure _RAINBOW
  7. Set Rainbow 0,0,400,"","",""
  8. OFFSET=0
  9. A=$0
  10. For B=0 To 15
  11.    Rain(0,OFFSET)=A
  12.    OFFSET=OFFSET+1
  13.    A=A+$1
  14. Next 
  15. A=$F
  16. For B=0 To 15
  17.    Rain(0,OFFSET)=A
  18.    OFFSET=OFFSET+1
  19.    A=A+$100
  20. Next 
  21. A=$F0F
  22. For B=0 To 15
  23.    Rain(0,OFFSET)=A
  24.    OFFSET=OFFSET+1
  25.    A=A+$10
  26. Next 
  27. A=$FFF
  28. For B=0 To 15
  29.    Rain(0,OFFSET)=A
  30.    OFFSET=OFFSET+1
  31.    A=A-$1
  32. Next 
  33. A=$FF0
  34. For B=0 To 15
  35.    Rain(0,OFFSET)=A
  36.    OFFSET=OFFSET+1
  37.    A=A-$10
  38. Next 
  39. A=$F00
  40. For B=0 To 15
  41.    Rain(0,OFFSET)=A
  42.    OFFSET=OFFSET+1
  43.    A=A-$100
  44. Next 
  45. A=$0
  46. For B=0 To 15
  47.    Rain(0,OFFSET)=A
  48.    OFFSET=OFFSET+1
  49.    A=A+$1
  50. Next 
  51. A=$F
  52. For B=0 To 15
  53.    Rain(0,OFFSET)=A
  54.    OFFSET=OFFSET+1
  55.    A=A+$100
  56. Next 
  57. A=$F0F
  58. For B=0 To 15
  59.    Rain(0,OFFSET)=A
  60.    OFFSET=OFFSET+1
  61.    A=A+$10
  62. Next 
  63. A=$FFF
  64. For B=0 To 15
  65.    Rain(0,OFFSET)=A
  66.    OFFSET=OFFSET+1
  67.    A=A-$1
  68. Next 
  69. A=$FF0
  70. For B=0 To 15
  71.    Rain(0,OFFSET)=A
  72.    OFFSET=OFFSET+1
  73.    A=A-$10
  74. Next 
  75. A=$F00
  76. For B=0 To 15
  77.    Rain(0,OFFSET)=A
  78.    OFFSET=OFFSET+1
  79.    A=A-$100
  80. Next 
  81. A=$0
  82. For B=0 To 15
  83.    Rain(0,OFFSET)=A
  84.    OFFSET=OFFSET+1
  85.    A=A+$1
  86. Next 
  87. A=$F
  88. For B=0 To 15
  89.    Rain(0,OFFSET)=A
  90.    OFFSET=OFFSET+1
  91.    A=A+$100
  92. Next 
  93. A=$F0F
  94. For B=0 To 15
  95.    Rain(0,OFFSET)=A
  96.    OFFSET=OFFSET+1
  97.    A=A+$10
  98. Next 
  99. A=$FFF
  100. For B=0 To 15
  101.    Rain(0,OFFSET)=A
  102.    OFFSET=OFFSET+1
  103.    A=A-$1
  104. Next 
  105. A=$FF0
  106. For B=0 To 15
  107.    Rain(0,OFFSET)=A
  108.    OFFSET=OFFSET+1
  109.    A=A-$10
  110. Next 
  111. A=$F00
  112. For B=0 To 15
  113.    Rain(0,OFFSET)=A
  114.    OFFSET=OFFSET+1
  115.    A=A-$100
  116. Next 
  117. Rainbow 0,40,1,300
  118. End Proc